home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Registrierung.brapri < prev    next >
Text File  |  1999-03-27  |  8KB  |  285 lines
  1. 1$VER: Registrierung 1.04 (27.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (27.03.1999)
  5. %%Version: 1.04
  6. %%Title: (MT-RechnungIII - Registrierungsformular)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 60 def
  22. /DokumentRandY 45 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. /DokumentRandYOriginal DokumentRandY def
  43. %%EndSetup
  44.  
  45. %%BeginnResource
  46. /reencodedict 5 dict def
  47. /ReEncode
  48. {
  49.      reencodedict begin
  50.      /newencoding exch def
  51.      /newfontname exch def
  52.      /basefontname exch def
  53.  
  54.      /basefontdict basefontname findfont def
  55.  
  56.      /newfont basefontdict maxlength dict def
  57.  
  58.      basefontdict
  59.      { exch dup dup /FID ne exch /Encoding ne and
  60.           { exch newfont 3 1 roll put }
  61.           { pop pop }
  62.           ifelse
  63.      } forall
  64.      newfont /FontName newfontname put
  65.      newfont /Encoding newencoding put
  66.      newfontname newfont definefont pop
  67.      end
  68. } def
  69.  
  70. /ISOLatin8Encoding
  71. [
  72.     ISOLatin1Encoding 0 164 getinterval aload pop
  73.     /euro
  74.     ISOLatin1Encoding 165 91 getinterval aload pop
  75. ] def
  76. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  77. %%EndResource
  78.  
  79. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  80. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  81. /Times28Line 28 def
  82. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  83. /Times14Line 14 def
  84. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  85. /Times8Line 8 def
  86. Times14 setfont
  87.  
  88. DokumentRandX DokumentRandY moveto
  89. DruckDatum 0 get dup stringwidth
  90. pop 486 exch sub
  91. DokumentRandX add DokumentRandY moveto show
  92.  
  93. %% Ausgab des Dokuments
  94. Adresse3
  95. {
  96.     DokumentRandX DokumentRandY moveto
  97.     show
  98.     DokumentRandY Times14Line sub /DokumentRandY exch def
  99. } forall
  100.  
  101. /Position 0 def
  102. DokumentRandY 110 sub /DokumentRandY exch def
  103.  
  104. Times28 setfont
  105. DokumentRandX DokumentRandY moveto
  106. (Registrierung) dup stringwidth
  107. pop 486 exch sub
  108. DokumentRandX add DokumentRandY moveto show
  109.  
  110. Times8 setfont
  111. Times8 /FontInfo known
  112. {
  113.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  114.     {
  115.         /UnderlinePosition get
  116.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  117.     }
  118.     {
  119.         Times8Line -9 div cvi /Unterstreichabstand exch def
  120.         pop
  121.     } ifelse
  122.     /UnderlineThicknes known
  123.     {
  124.         /UnderlineThicknes get
  125.         Times8Line mul /Unterstrichdicke exch def
  126.     }
  127.     {
  128.         Times8Line 24 div /Unterstrichdicke exch def
  129.         pop
  130.     } ifelse
  131. }
  132. {
  133.     Times8Line -9 div cvi /Unterstreichabstand exch def
  134.     Times8Line 24 div /Unterstrichdicke exch def
  135.     pop
  136. } ifelse
  137.  
  138. Adresse1
  139. {
  140.     newpath
  141.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  142.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  143.     lineto closepath Unterstrichdicke setlinewidth
  144.     stroke
  145.     DokumentRandX DokumentRandY moveto
  146.     Adresse1 Position get show
  147.     DokumentRandY Times8Line sub /DokumentRandY exch def
  148.     Position 1 add /Position exch def
  149. } forall
  150.  
  151. 0.5 setlinewidth
  152.  
  153. Times14 setfont
  154.  
  155. DokumentRandY Times14Line sub /DokumentRandY exch def
  156. DokumentRandX DokumentRandY moveto (MT Graphic & Design) show
  157.  
  158. DokumentRandY Times14Line sub /DokumentRandY exch def
  159. DokumentRandX DokumentRandY moveto (Manfred Tremmel) show
  160.  
  161. DokumentRandY Times14Line sub /DokumentRandY exch def
  162. DokumentRandX DokumentRandY moveto (Marschalkstr. 20) show
  163.  
  164. DokumentRandY Times14Line sub Times14Line sub /DokumentRandY exch def
  165. DokumentRandX DokumentRandY moveto (D-84419 Schwindegg) show
  166. DokumentRandY Times14Line sub /DokumentRandY exch def
  167.  
  168.  
  169. /DokumentRandY 450 def
  170. DokumentRandX DokumentRandY moveto
  171. (Registrieren Sie mich bitte für MT-RechnungIII, hier meine Daten:) show
  172. DokumentRandY Times14Line sub Times14Line sub /DokumentRandY exch def
  173.  
  174. DokumentRandX DokumentRandY moveto (Anrede:) show
  175. DokumentRandX 150 add DokumentRandY moveto Anrede show
  176. DokumentRandY Times14Line sub /DokumentRandY exch def
  177.  
  178. DokumentRandX DokumentRandY moveto (Name:) show
  179. DokumentRandX 150 add DokumentRandY moveto Name show
  180. DokumentRandY Times14Line sub /DokumentRandY exch def
  181.  
  182. DokumentRandX DokumentRandY moveto (Vorname:) show
  183. DokumentRandX 150 add DokumentRandY moveto Vorname show
  184. DokumentRandY Times14Line sub /DokumentRandY exch def
  185.  
  186. DokumentRandX DokumentRandY moveto (Firma1:) show
  187. DokumentRandX 150 add DokumentRandY moveto Firma1 show
  188. DokumentRandY Times14Line sub /DokumentRandY exch def
  189.  
  190. DokumentRandX DokumentRandY moveto (Firma2:) show
  191. DokumentRandX 150 add DokumentRandY moveto Firma2 show
  192. DokumentRandY Times14Line sub /DokumentRandY exch def
  193.  
  194. DokumentRandX DokumentRandY moveto (Straße:) show
  195. DokumentRandX 150 add DokumentRandY moveto Strasse show
  196. DokumentRandY Times14Line sub /DokumentRandY exch def
  197.  
  198. DokumentRandX DokumentRandY moveto (PLZ:) show
  199. DokumentRandX 150 add DokumentRandY moveto PLZ show
  200. DokumentRandY Times14Line sub /DokumentRandY exch def
  201.  
  202. DokumentRandX DokumentRandY moveto (Ort:) show
  203. DokumentRandX 150 add DokumentRandY moveto Ort show
  204. DokumentRandY Times14Line sub /DokumentRandY exch def
  205.  
  206. DokumentRandX DokumentRandY moveto (Land:) show
  207. DokumentRandX 150 add DokumentRandY moveto Land show
  208. DokumentRandY Times14Line sub /DokumentRandY exch def
  209.  
  210. DokumentRandX DokumentRandY moveto (Bundesland:) show
  211. DokumentRandX 150 add DokumentRandY moveto Bundesland show
  212. DokumentRandY Times14Line sub /DokumentRandY exch def
  213.  
  214. DokumentRandX DokumentRandY moveto (Telefon:) show
  215. DokumentRandX 150 add DokumentRandY moveto Telefon show
  216. DokumentRandY Times14Line sub /DokumentRandY exch def
  217.  
  218. DokumentRandX DokumentRandY moveto (Telefax:) show
  219. DokumentRandX 150 add DokumentRandY moveto Telefax show
  220. DokumentRandY Times14Line sub /DokumentRandY exch def
  221.  
  222. DokumentRandX DokumentRandY moveto (DFÜ-Nummer:) show
  223. DokumentRandX 150 add DokumentRandY moveto DFUENr show
  224. DokumentRandY Times14Line sub /DokumentRandY exch def
  225.  
  226. DokumentRandX DokumentRandY moveto (EMail 1:) show
  227. DokumentRandX 150 add DokumentRandY moveto EMail1 show
  228. DokumentRandY Times14Line sub /DokumentRandY exch def
  229.  
  230. DokumentRandX DokumentRandY moveto (EMail 2:) show
  231. DokumentRandX 150 add DokumentRandY moveto EMail2 show
  232. DokumentRandY Times14Line sub /DokumentRandY exch def
  233.  
  234. DokumentRandX DokumentRandY moveto (EMail 3:) show
  235. DokumentRandX 150 add DokumentRandY moveto EMail3 show
  236. DokumentRandY Times14Line sub /DokumentRandY exch def
  237.  
  238. DokumentRandX DokumentRandY moveto (BLZ:) show
  239. DokumentRandX 150 add DokumentRandY moveto BLZ show
  240. DokumentRandY Times14Line sub /DokumentRandY exch def
  241.  
  242. DokumentRandX DokumentRandY moveto (Bank:) show
  243. DokumentRandX 150 add DokumentRandY moveto Bank show
  244. DokumentRandY Times14Line sub /DokumentRandY exch def
  245.  
  246. DokumentRandX DokumentRandY moveto (Bankkurzbezeichnung:) show
  247. DokumentRandX 150 add DokumentRandY moveto Bankkurz show
  248. DokumentRandY Times14Line sub /DokumentRandY exch def
  249.  
  250. DokumentRandX DokumentRandY moveto (Konto:) show
  251. DokumentRandX 150 add DokumentRandY moveto Konto show
  252. DokumentRandY Times14Line sub /DokumentRandY exch def
  253.  
  254. DokumentRandX DokumentRandY moveto (Geboren am:) show
  255. DokumentRandX 150 add DokumentRandY moveto Geburtstag 0 get show
  256. DokumentRandY 30 sub /DokumentRandY exch def
  257.  
  258.  
  259. DokumentRandX DokumentRandY moveto (Mit freundlichen Grüssen) show
  260. DokumentRandY 50 sub /DokumentRandY exch def
  261. Times8 setfont
  262. newpath
  263. DokumentRandX DokumentRandY moveto
  264. 150 0 rlineto closepath Unterstrichdicke setlinewidth
  265. stroke
  266. DokumentRandY Times8Line sub /DokumentRandY exch def
  267. DokumentRandX DokumentRandY moveto
  268. (\() show
  269. Name () eq
  270. {
  271.     (Unterschrift) show
  272. }
  273. {
  274.     Vorname show
  275.     ( ) show
  276.     Name show
  277. } ifelse
  278. (\)) show
  279.  
  280. showpage
  281.  
  282. %%Trailer
  283. clear
  284. %%EOF
  285.